COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE CNV CONVERT KLDCP.BIN FROM NEW BIN FORMAT TO OLD
C00004 ENDMK
C⊗;
TITLE CNV CONVERT KLDCP.BIN FROM NEW BIN FORMAT TO OLD

A←1
B←2
C←3
D←4

P←17

DKIC←←1
DKOC←←2

GO:	RESET
	MOVE P,[-100,,PDL-1]
	INIT DKIC,10
	SIXBIT /DSK/
	IBUF
	JRST 4,.
	INIT DKOC,10
	SIXBIT /DSK/
	OBUF,,
	JRST 4,.
	MOVE A,['KLDCP ']
	MOVSI B,(<SIXBIT /BIN/>)
	SETZB C,D
	LOOKUP DKIC,A
	JRST 4,.
	MOVE A,['KLDCP ']
	MOVSI B,(<SIXBIT /OBN/>)
	SETZB C,D
	ENTER DKOC,A
	JRST 4,.
	MOVEI A,=18
	DPB A,[POINT 6,IBUF+1,11]
	INBUF DKIC,=19
	OUTBUF DKOC,=19
LOOP:	PUSHJ P,GET
	EXIT
	PUSH P,A
	PUSHJ P,PUT
	POP P,A
	LSH A,-8
	PUSHJ P,PUT
	JRST LOOP

GET:	SOSG IBUF+2
	IN DKIC,
	CAIA
	POPJ P,
	ILDB A,IBUF+1
CPOPJ1:	AOS (P)
	POPJ P,

PUT:	ANDI A,377
	SOSG OBUF+2
	OUT DKOC,
	CAIA
	JRST 4,.
	IDPB A,OBUF+1
	POPJ P,

PDL:	BLOCK 100
IBUF:	BLOCK 3
OBUF:	BLOCK 3

	END GO